unit CaixaEntSaiSearchFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, StdCtrls, DBCtrls, MainSearchFr;

type

  { TCaixaEntSaiSearchFrame }

  TCaixaEntSaiSearchFrame = class(TMainSearchFrame)
    id_caixa: TEdit;
    id_entrada_saida_caixa: TEdit;
    Label3: TLabel;
    desc_ent_saida_caixa: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    tipo: TRadioGroup;
    procedure LocalizarButtonClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses PessoaDM, QueryConditions, CaixaDM;

{ TCaixaEntSaiSearchFrame }



procedure TCaixaEntSaiSearchFrame.LocalizarButtonClick(Sender: TObject);
var
  condicoes: TQueryConditions;
  t: string;
begin
  t := '';
  if tipo.ItemIndex = 0 then begin
    t := 'E';
  end else if tipo.ItemIndex = 1 then begin
    t := 'S';
  end;
  if (id_entrada_saida_caixa.Text <> '') or (desc_ent_saida_caixa.Text <> '') or (tipo.ItemIndex <> -1) then begin
    condicoes := TQueryConditions.Create(CON_AND);
    condicoes.Add('esc.id_entrada_saida_caixa', id_entrada_saida_caixa.Text);
    condicoes.AddText('esc.desc_ent_saida_caixa', desc_ent_saida_caixa.Text);
    condicoes.AddJoinField('c.id_caixa', 'esc.id_caixa');
    if (t <> '') then begin
      condicoes.Add('esc.tipo', t);
    end;
   // CaixaData.Search(condicoes, 'caixa as c, entrada_saida_caixa as esc');
  end else begin
    ShowMessage('Selecione algum Parametro!');
  end;
end;

initialization
  {$I caixaentsaisearchfr.lrs}

end.
